home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / Developer Essentials Jul 90 / DTS Sample Code / Apple II Sample Code / MPW IIGS SC / SC.024.Teach / teach.p / uMenu.p < prev    next >
Encoding:
Text File  |  1990-06-25  |  859 b   |  55 lines  |  [TEXT/MPS ]

  1. {**********************************************************************
  2. {*
  3. {* Teach uMenu -- Version 3.0  (interface)
  4. {*
  5. {* Copyright (c)
  6. {* Apple Computer, Inc.  1986-1990
  7. {* All Rights Reserved.
  8. {*
  9. {* Developer Technical Support Apple II Sample Code
  10. {*
  11. {* This file contains the interface to the code which implements 
  12. {* menus in the Teach program.
  13. {*
  14. {**********************************************************************}
  15.  
  16. UNIT uMenu;
  17.  
  18. INTERFACE
  19.  
  20. USES
  21.        types,
  22.        locator,
  23.        quickdraw,
  24.        fonts,
  25.        INTMATH,
  26.        events,
  27.        controls,
  28.        windows,
  29.        dialogs,
  30.        menus,
  31.        desk,
  32.        STDFILE,
  33.        GSOS,
  34.        Resources,
  35.        TextEdit,
  36.        memory,
  37.        
  38.        uGlobals,
  39.        uUtils,
  40.        uWindow;
  41.  
  42.  
  43. procedure doMenu;      {Execute a menu item}
  44. procedure setUpMenus;  {Install menus and redraw menu bar}
  45.  
  46.  
  47.  
  48.  
  49.  
  50. IMPLEMENTATION
  51.  
  52. {$i uMenu.inc.p }
  53.  
  54. END.
  55.